home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / Swiftsoft Multimedia Tools / MMTOOL3.EXE / MMAVIReg.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-02-22  |  2.9 KB  |  74 lines
  1. {========================================================================}
  2. {=                (c) 1995-98 SwiftSoft Ronald Dittrich                 =}
  3. {========================================================================}
  4. {=                          All Rights Reserved                         =}
  5. {========================================================================}
  6. {=  D 01099 Dresden             = Tel.: +0351-8012255                   =}
  7. {=  Loewenstr.7a                = info@swiftsoft.de                     =}
  8. {========================================================================}
  9. {=  Actual versions on http://www.swiftsoft.de/mmtools.html             =}
  10. {========================================================================}
  11. {=  This code is for reference purposes only and may not be copied or   =}
  12. {=  distributed in any format electronic or otherwise except one copy   =}
  13. {=  for backup purposes.                                                =}
  14. {=                                                                      =}
  15. {=  No Delphi Component Kit or Component individually or in a collection=}
  16. {=  subclassed or otherwise from the code in this unit, or associated   =}
  17. {=  .pas, .dfm, .dcu, .asm or .obj files may be sold or distributed     =}
  18. {=  without express permission from SwiftSoft.                          =}
  19. {=                                                                      =}
  20. {=  For more licence informations please refer to the associated        =}
  21. {=  HelpFile.                                                           =}
  22. {========================================================================}
  23. {=  $Date: 20.01.1998 - 18:00:00 $                                      =}
  24. {========================================================================}
  25. unit MMAVIReg;
  26.  
  27. {$I COMPILER.INC}
  28.  
  29. {$DEFINE FULL_AVI_INSTALL}
  30.  
  31. Interface
  32.  
  33. Procedure Register;
  34.  
  35. Implementation
  36.  
  37. {$IFDEF WIN32}
  38.    {$R MMAVI.D32}
  39. {$ELSE}
  40.    {$R MMAVI.D16}
  41. {$ENDIF}
  42.  
  43. uses
  44.     Controls,
  45.     Classes,
  46.     DsgnIntf,
  47.     SysUtils,
  48.     MMAVI,
  49.     MMAVIPrp
  50.     {$IFDEF FULL_AVI_INSTALL}
  51.     ,MMAVICtl
  52.     {$ENDIF}
  53.     ;
  54.  
  55. {=========================================================================}
  56. procedure Register;
  57. begin
  58.    RegisterComponents('MMAVI',[TMMAVIOpenDialog,
  59.                                TMMAVISaveDialog,
  60.                                TMMAVIFile,
  61.                                TMMAVIMemoryFile,
  62.                                TMMAVICompressor
  63.                                {$IFDEF FULL_AVI_INSTALL}
  64.                                ,TMMAVIVideoDisplay,
  65.                                TMMAVIControl
  66.                                {$ENDIF}
  67.                                ]);
  68.  
  69.     RegisterPropertyEditor(TypeInfo(TFileName),TMMAVIFile,'FileName',TMMAVIFileProperty);
  70.     RegisterComponentEditor(TMMAVIFile, TMMAVIComponentEditor);
  71. end;
  72.  
  73. end.
  74.